home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 4 / MacFormat n. 4 (Spain) / MacFormat 4.bin / Demos / DiscoverIndia Demo / SHARED.DIR / 00401.ls next >
Encoding:
Text File  |  1995-03-28  |  615 b   |  20 lines
  1. on setCsrs
  2.   global csr128, csr129, csr130, csr131, csr138, csr139, csr140, csr141
  3.   set i to the number of cast "csr128"
  4.   set csr128 to [i, i + 1]
  5.   set i to the number of cast "csr129"
  6.   set csr129 to [i, i + 1]
  7.   set i to the number of cast "csr130"
  8.   set csr130 to [i, i + 1]
  9.   set i to the number of cast "csr131"
  10.   set csr131 to [i, i + 1]
  11.   set i to the number of cast "csr138"
  12.   set csr138 to [i, i + 1]
  13.   set i to the number of cast "csr139"
  14.   set csr139 to [i, i + 1]
  15.   set i to the number of cast "csr140"
  16.   set csr140 to [i, i + 1]
  17.   set i to the number of cast "csr141"
  18.   set csr141 to [i, i + 1]
  19. end
  20.